home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / basic3 / pro5 / pipes.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1990-05-16  |  922 b   |  46 lines
  1. 5  CLS:RANDOMIZE TIMER
  2. 10  KEY OFF
  3. 20  SCREEN 1,1
  4. 30  COLOR 3,0
  5. 40  XCO = 160:YCO=100:R=10
  6. 45  DIR = 1
  7. 46  INC = 3
  8. 47  COL = 2
  9. 50  WHILE INKEY$<>"q"
  10. 58  CTA = 1
  11. 59  WHILE CTA < INT(10*RND+1) + 8
  12. 60    CIRCLE (XCO,YCO),R,COL
  13. 65  IF XCO < 320 AND XCO > 0 AND YCO > 0 AND YCO < 200 THEN GOSUB 230 ELSE GOSUB 600
  14. 66  CTA = CTA + 1
  15. 68  WEND
  16. 210   WHI = INT(RND*2+1)
  17. 220  IF RND*10 > 5 OR CTA > 19 THEN  ON DIR GOSUB 350,370,390,410
  18. 222  WEND
  19. 225  GOTO 280
  20. 230    IF DIR = 1 THEN XCO = XCO + INC
  21. 240    IF DIR = 2 THEN YCO = YCO + INC
  22. 250    IF DIR = 3 THEN XCO = XCO - INC
  23. 260    IF DIR = 4 THEN YCO = YCO - INC
  24. 270  RETURN
  25. 280  LOCATE 25,1
  26. 290  INPUT "press ENTER to continue";ANS$
  27. 300  SCREEN 0
  28. 310  WIDTH 80
  29. 320  KEY ON
  30. 330  WHI = INT(RND*2+1)
  31. 340  LOCATE 1,1:PRINT WHI
  32. 350  IF DIR = 1 AND WHI = 1 THEN DIR = 4 ELSE DIR = 2
  33. 360  RETURN
  34. 370  IF DIR = 2 AND WHI = 1 THEN DIR = 3 ELSE DIR = 1
  35. 380  RETURN
  36. 390  IF DIR = 3 AND WHI = 1 THEN DIR = 2 ELSE DIR = 4
  37. 400  RETURN
  38. 410  IF DIR = 4 AND WHI = 1 THEN DIR = 1 ELSE DIR = 3
  39. 420  RETURN
  40. 600  CTA = 20
  41. 605  COL = INT(RND*3+1):R = R + 1
  42. 610  XCO = 160 : YCO = 100
  43. 612  COLOR INT(RND*15+1)
  44. 36414  
  45. 8271  =WIDTH LETINKEY$>A<0x9F!>2d
  46.